home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / disk / bkpwiz31.zip / BKPWIZ.EXE / GO.BAT < prev    next >
DOS Batch File  |  1996-10-19  |  4KB  |  187 lines
  1. @echo off
  2. echo prompt=%prompt% > prmptold.bat
  3. set clksw=0
  4. call prompt1
  5. call doclock
  6. set clksw=1
  7. set logon=0
  8.  
  9. :Begin
  10. :MAIN_MENU
  11. Wizmenu bkpwiz.mnu /o  /d- /T3 /w300 >nul
  12.  
  13. If Errorlevel 8 goto exit
  14. If Errorlevel 7 goto Docs
  15. If Errorlevel 6 goto doMOVEZIP
  16. If Errorlevel 5 goto doSYNCHRO
  17. If Errorlevel 4 goto doUNPACK
  18. If Errorlevel 3 goto doBKPEXT
  19. If Errorlevel 2 goto doBKUP
  20. If Errorlevel 1 goto doDRV
  21. goto exit
  22.  
  23. :doDRV
  24. set prog=BKPDRV
  25. goto start
  26. :dobkup
  27. set prog=BKUP
  28. goto start
  29. :dobkpext
  30. set prog=BKPEXT
  31. goto start
  32. :dounpack
  33. set prog=UNPACK
  34. goto start
  35. :doSYNCHRO
  36. set prog=SYNCHRO
  37. goto start
  38. :domovezip
  39. set prog=MOVEZIP
  40. goto start
  41. :docs
  42. getdocs
  43.  
  44.  
  45. :start
  46. type return
  47. echo YOU ANSWERED: %prog%.EXE
  48. type return
  49. set Parm3=
  50. Set Parm4=zip
  51. If %Prog%==SYNCHRO goto contbkup
  52.  
  53. REM
  54. echo Specify the BACKUP DRIVE (Letter only) (OR Source Drive for MOVEZIP)
  55. echo =====================================================
  56. Tellme "Drive to Backup to: " /c 74 /D  /MBKPDRV /O: /I /Q
  57. type return
  58. Tellme " DRIVE %bkpdrv% SELECTED (Enter to Accept)" /C 31  /Q
  59. REM
  60.  
  61. REM
  62. REM     HERE TO PROGRAM 'BKPDRV'
  63. REM
  64. If not %Prog%==BKPDRV goto contbkup
  65. call showme specdrv.txt
  66. Tellme "Entire Drive (to Backup):" /c 74 /D  /MMYDRV /O: /I /Q
  67. type return
  68. Tellme "DRIVE %mydrv% SELECTED FOR BACKING UP. (Enter to Accept)" /C 31 /Q
  69. type return
  70. set mydir=%mydrv%
  71. set logon=1
  72. clrx 2
  73. onscrn "Processing.....Please wait" /c 79 /q
  74. call %prog% %mydir% %bkpdrv%
  75. goto nextb
  76.  
  77. :contbkup
  78. REM
  79. REM     Here for picking up FIRST-LEVEL DIR PATH
  80. REM
  81.  
  82. echo  Specify Directory Path to (Backup/Retrieve/Target for Synchro):
  83. call showme specdir.txt
  84.  
  85. Tellme "Directory Path (or Synchro Target): " /c 74 /MMYDIR /F40 /Q
  86. type return
  87. Tellme "Selected DIRECTORY PATH :  %mydir% (Enter to Accept)" /C 31 /Q
  88. type return
  89. call drvdir %mydir%
  90. If %Prog%==BKPEXT goto contbkx
  91. If %Prog%==UNPACK goto contunpk
  92. If %Prog%==SYNCHRO goto contsync
  93. If %Prog%==MOVEZIP goto contmzip
  94.  
  95. Tellme "Protect this particular Backup from being overwritten? :" /C 14 /Y /Q
  96. type return
  97. If Errorlevel 0 set Parm3=
  98. If Errorlevel 1 set Parm3=P
  99. goto Process
  100.  
  101.  
  102. REM
  103. REM     Here for 'BKPEXT' Processing
  104. REM
  105. :contbkx
  106. type return
  107. echo Please specify the File Extension Filter such as DOC, MAC TXT etc.
  108. Tellme "Extensionn Filter:" /c 30 /MPARM3 /Q
  109. type return
  110. Tellme "Selected EXTENSION :  %parm3% (Enter to Accept)" /C 31 /Q
  111. type return
  112. goto Process
  113.  
  114. REM
  115. REM     Here for 'UNPACK' Processing
  116. REM
  117. :contunpk
  118. call showme unpack.txt 
  119. type return
  120. Tellme " Datestamp or ^+extension (ENTER for normal 'zip'):" /c 30  /MPARM3 /Q
  121. type return
  122. Tellme "Selected EXTENSION to retrieve :  %parm3% (Enter to Accept)" /C 31 /Q
  123. type return
  124. goto Process
  125.  
  126. :contsync
  127. set Parm4=
  128. echo Specify the Source Directory Path to update/synchronize with:
  129. Tellme "Directory Path for Update : " /c 74 /MBKPDRV /F35 /Q
  130. type return
  131. Tellme "Selected DIRECTORY PATH :  %bkpdrv% (Enter to Accept)" /C 31 /Q
  132. type return
  133. Tellme "Freshen Existing files only? :" /C 14 /Y /Q
  134. type return
  135. If Errorlevel 0 set Parm3=-u
  136. If Errorlevel 1 set Parm3=-f
  137. If %Parm3%==-f set text=FRESHEN
  138. If %Parm3%==-u set text=UPDATE
  139. :call %prog% %mydir% %bkpdrv% %parm3%
  140. goto process
  141.  
  142.  
  143. :contmzip
  144. echo This is MOVEZIP processing
  145. set Parm4=zip
  146. type return
  147. echo Please Specify the Drive to MOVE the (Compressed) file TO:
  148. echo ===================================================================
  149. Tellme "Drive to move the Backup file to: " /c 74 /D  /MPARM3 /O: /I  /Q
  150. type return
  151. Tellme " DRIVE %PARM3% SELECTED TO MOVE TO (Enter to Accept)" /C 31 /Q
  152. echo    If you are moving a Backup File with an unique 'non-zip' extension, 
  153. echo    such as a Datestamp or an  EXTENSIOON, please specify it at the 
  154. echo    following prompt. OTHERWISE simply Press ENTER.
  155. Pause
  156. Tellme "File Extension or Datestamp or ENTER for neither:"  31 /MPARM4   /Q
  157. If %Parm4%*==* set Parm4=zip
  158. set text=MOVED TO
  159. rem
  160. rem     PROCESS THE ACTUAL COMMAND HERE.
  161. rem
  162. :Process
  163. call myproc
  164. :nextb
  165. @echo off
  166. :set Mydir=
  167. :set Bkpdrv=
  168. :set Parm3=
  169. set nolog=
  170. set bkpdir=
  171. set Bkname=
  172. set Bkpfl=
  173. set Ext=
  174. set Mypath=
  175. rem set Ans=
  176. Tellme         "More Directories to Backup (Retrieve)?" /c 14 /Y /Q
  177. :echo            you answered %ans%
  178. If Errorlevel 1 goto begin
  179. type return
  180. Tellme         "Continue with Documentation?" /c 14 /Y /Q
  181. If Errorlevel 1 getdocs
  182. call prmptold
  183. call showme logoff.txt
  184. type return
  185. :exit
  186.  
  187.